home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pcalar1a / formmain.frm next >
Text File  |  1999-09-03  |  20KB  |  703 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  4. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  5. Begin VB.Form frmMain 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "PC Alarm"
  8.    ClientHeight    =   4860
  9.    ClientLeft      =   45
  10.    ClientTop       =   615
  11.    ClientWidth     =   6975
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4860
  16.    ScaleWidth      =   6975
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin VB.PictureBox Picture1 
  19.       BackColor       =   &H00FFFFFF&
  20.       FillColor       =   &H00FFFFFF&
  21.       ForeColor       =   &H00FFFFFF&
  22.       Height          =   375
  23.       Left            =   120
  24.       ScaleHeight     =   315
  25.       ScaleWidth      =   1620
  26.       TabIndex        =   8
  27.       Top             =   4275
  28.       Width           =   1680
  29.       Begin MSComCtl2.UpDown UpDown1 
  30.          Height          =   330
  31.          Left            =   1425
  32.          TabIndex        =   13
  33.          Top             =   0
  34.          Width           =   195
  35.          _ExtentX        =   344
  36.          _ExtentY        =   582
  37.          _Version        =   393216
  38.          Enabled         =   -1  'True
  39.       End
  40.       Begin VB.TextBox txtAmPm 
  41.          Alignment       =   2  'Center
  42.          BorderStyle     =   0  'None
  43.          BeginProperty Font 
  44.             Name            =   "MS Sans Serif"
  45.             Size            =   12
  46.             Charset         =   0
  47.             Weight          =   400
  48.             Underline       =   0   'False
  49.             Italic          =   0   'False
  50.             Strikethrough   =   0   'False
  51.          EndProperty
  52.          Height          =   450
  53.          Left            =   885
  54.          Locked          =   -1  'True
  55.          TabIndex        =   12
  56.          Text            =   "AM"
  57.          Top             =   0
  58.          Width           =   450
  59.       End
  60.       Begin VB.TextBox txtMinute 
  61.          Alignment       =   2  'Center
  62.          BorderStyle     =   0  'None
  63.          BeginProperty Font 
  64.             Name            =   "MS Sans Serif"
  65.             Size            =   12
  66.             Charset         =   0
  67.             Weight          =   400
  68.             Underline       =   0   'False
  69.             Italic          =   0   'False
  70.             Strikethrough   =   0   'False
  71.          EndProperty
  72.          Height          =   450
  73.          Left            =   480
  74.          TabIndex        =   11
  75.          Text            =   "59"
  76.          Top             =   0
  77.          Width           =   345
  78.       End
  79.       Begin VB.TextBox txtHour 
  80.          Alignment       =   2  'Center
  81.          BorderStyle     =   0  'None
  82.          BeginProperty Font 
  83.             Name            =   "MS Sans Serif"
  84.             Size            =   12
  85.             Charset         =   0
  86.             Weight          =   400
  87.             Underline       =   0   'False
  88.             Italic          =   0   'False
  89.             Strikethrough   =   0   'False
  90.          EndProperty
  91.          Height          =   450
  92.          Left            =   0
  93.          TabIndex        =   9
  94.          Text            =   "12"
  95.          Top             =   0
  96.          Width           =   345
  97.       End
  98.       Begin VB.Label Label2 
  99.          Alignment       =   2  'Center
  100.          BackColor       =   &H00FFFFFF&
  101.          Caption         =   ":"
  102.          BeginProperty Font 
  103.             Name            =   "MS Sans Serif"
  104.             Size            =   12
  105.             Charset         =   0
  106.             Weight          =   700
  107.             Underline       =   0   'False
  108.             Italic          =   0   'False
  109.             Strikethrough   =   0   'False
  110.          EndProperty
  111.          Height          =   330
  112.          Left            =   345
  113.          TabIndex        =   10
  114.          Top             =   -15
  115.          Width           =   135
  116.       End
  117.    End
  118.    Begin MSComDlg.CommonDialog CDB 
  119.       Left            =   2025
  120.       Top             =   4095
  121.       _ExtentX        =   847
  122.       _ExtentY        =   847
  123.       _Version        =   393216
  124.    End
  125.    Begin MSComctlLib.ImageList ImageList1 
  126.       Left            =   2010
  127.       Top             =   3420
  128.       _ExtentX        =   1005
  129.       _ExtentY        =   1005
  130.       BackColor       =   -2147483643
  131.       ImageWidth      =   32
  132.       ImageHeight     =   32
  133.       MaskColor       =   12632256
  134.       _Version        =   393216
  135.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  136.          NumListImages   =   7
  137.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  138.             Picture         =   "FormMain.frx":0000
  139.             Key             =   ""
  140.          EndProperty
  141.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  142.             Picture         =   "FormMain.frx":0454
  143.             Key             =   ""
  144.          EndProperty
  145.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  146.             Picture         =   "FormMain.frx":08A8
  147.             Key             =   ""
  148.          EndProperty
  149.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  150.             Picture         =   "FormMain.frx":0D04
  151.             Key             =   ""
  152.          EndProperty
  153.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  154.             Picture         =   "FormMain.frx":1020
  155.             Key             =   ""
  156.          EndProperty
  157.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  158.             Picture         =   "FormMain.frx":1474
  159.             Key             =   ""
  160.          EndProperty
  161.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  162.             Picture         =   "FormMain.frx":1790
  163.             Key             =   ""
  164.          EndProperty
  165.       EndProperty
  166.    End
  167.    Begin VB.Timer Timer1 
  168.       Interval        =   200
  169.       Left            =   2070
  170.       Top             =   2865
  171.    End
  172.    Begin VB.Frame Frame1 
  173.       Height          =   4695
  174.       Left            =   1890
  175.       TabIndex        =   3
  176.       Top             =   45
  177.       Width           =   4920
  178.       Begin VB.TextBox txtMessage 
  179.          Height          =   1560
  180.          Left            =   195
  181.          TabIndex        =   18
  182.          Text            =   "Type your message here."
  183.          Top             =   1050
  184.          Width           =   4515
  185.       End
  186.       Begin VB.CommandButton cmdBackColor 
  187.          Caption         =   "Change Back Color"
  188.          Height          =   585
  189.          Left            =   2760
  190.          TabIndex        =   17
  191.          Top             =   2925
  192.          Width           =   1215
  193.       End
  194.       Begin VB.CommandButton cmdActivate 
  195.          Caption         =   "Activate Alarm"
  196.          Height          =   585
  197.          Left            =   825
  198.          TabIndex        =   16
  199.          Top             =   3795
  200.          Width           =   1215
  201.       End
  202.       Begin VB.CommandButton cmdFont 
  203.          Caption         =   "Change Font"
  204.          Height          =   585
  205.          Left            =   825
  206.          TabIndex        =   15
  207.          Top             =   2925
  208.          Width           =   1215
  209.       End
  210.       Begin VB.CommandButton cmdCancel 
  211.          Caption         =   "Cancel"
  212.          Height          =   585
  213.          Left            =   2760
  214.          TabIndex        =   7
  215.          Top             =   3795
  216.          Width           =   1215
  217.       End
  218.       Begin VB.Label lblMsg 
  219.          BackColor       =   &H80000009&
  220.          BorderStyle     =   1  'Fixed Single
  221.          Enabled         =   0   'False
  222.          Height          =   1560
  223.          Left            =   195
  224.          TabIndex        =   6
  225.          Top             =   1050
  226.          Width           =   4515
  227.          WordWrap        =   -1  'True
  228.       End
  229.       Begin VB.Label lblCurrent 
  230.          BorderStyle     =   1  'Fixed Singl